Merciful 2/Merciful - Disc 2.iso/software/d/digitaluniversev1.01a.dms/digitaluniversev1.01a.adf/MUI-Install

Text File | 1995-09-19 | 5KB | 188 lines

;***** MagicUserInterface Installation Script

(transcript "Installing Magic User Interface...")
(set @default-dest "SYS:")

;***** Introduction
(complete 0)

(message
    "The installation procedure has changed significantly since version 2.0 of "
    "MagicUserInterface. Instead of spreading the MUI related files all "
    "over your system, one single MUI directory will be created at some place "
    "of your choice. This directory will hold all necessary programs and "
    "libraries to use MUI."
)

;***** Old File Deletion
(complete 5)

(if (<> (exists "sys:classes/mui") 0)
(
    (if (askbool (help @askbool-help) (prompt "Some old MUI stuff is in your libs: drawer. Do you want to delete it now?"))
    (
        (if (<> (exists "sys:libs/muimaster.library") 0)
        (
            (delete
                ("sys:libs/muimaster.library")
                (prompt "Deleting old muimaster.library...")
                (help @deletefile-help)
            )
        )
        )

        (foreach "sys:Classes/MUI" "#?.mui"
            (delete
                (tackon "sys:Classes/MUI" @each-name)
                (help @deletefile-help)
            )
        )

        (if (<> (exists "sys:Classes/Images") 0)
        (
            (foreach "sys:Classes/Images" "mui#?.image"
                (delete
                    (tackon "sys:Classes/Images" @each-name)
                    (help @deletefile-help)
                )
            )
        )
        )

        (delete
            ("sys:Classes/MUI")
            (help @deletefile-help)
        )
    )
    )
)
)

(if (<> (exists "sys:prefs/mui") 0)
(
    (if (askbool (help @askbool-help) (prompt "The old preferences program is obsolete. Do you want to delete it now?"))
    (
        (delete
            ("sys:Prefs/MUI")
            (help @deletefile-help)
        )
        (delete
            ("sys:Prefs/MUI.info")
            (help @deletefile-help)
        )
    )
    )
)
)

(if (<> (exists "sys:prefs/MUI-Images") 0)
(
    (if (askbool (help @askbool-help) (prompt "The images in sys:prefs/MUI-Images have moved. Do you want to delete it now? CAUTION: If you have added some extra images here, be sure to copy them somewhere else before proceeding!"))
    (
        (run "delete sys:Prefs/MUI-images#? all >nil:")
    )
    )

    (if (askbool (help @askbool-help) (prompt "Due to the new directory structure, your old preferences settings are no longer valid and must be deleted. This will not affect window positions and application private settings. Please don't worry, instead take a look at the prefs program's preset menu when reconfiguring MUI. Do you want to delete the old settings now?"))
    (
        (run "delete envarc:mui/#?.prefs >nil:")
        (run "delete envarc:mui/MUIPREFS.cfg >nil:")
    )
    )
)
)

(if (<> (exists "sys:locale/catalogs/Deutsch/MUI.catalog" (noreq)) 0)
(
    (delete
        ("sys:locale/catalogs/Deutsch/MUI.catalog")
        (help @deletefile-help)
    )
)
)



;***** Destination Directory Selection & Creation
(complete 10)

(if (<> (exists "mui:" (noreq)) 0)
(
    (if (<> (exists "mui:MUI-Install" (noreq)) 0)
    (
        (set muimsg "Please select a place for \"MagicUserInterface\". A drawer called \"MUI\" will be created here. Since this archive just contains the essential MUI files, only about 500K will be required.")
    )
    (
        (set @default-dest "mui:/")
        (set muimsg "MUI is already installed on your system. Press \"Proceed\" to update your installation or select a different path for the \"MUI\" drawer.")
    )
    )
)
(
    (set muimsg "Please select a place for \"MagicUserInterface\". A drawer called \"MUI\" will be created here. Since this archive just contains the essential MUI files, only about 500K will be required.")
)
)

(set @default-dest (expandpath @default-dest))

(set destination
    (askdir
        (prompt muimsg)
        (help @askdir-help)
        (default @default-dest)
    )
)

(set @execute-dir destination)
(set @default-dest destination)
(set destination (tackon destination "MUI"))

(if (= (exists destination) 2)
(message
    "A MUI drawer does already exist in the selected directory. By selecting \"Proceed\", "
    "you indicate that you want to update the MUI installation with the "
    "most recent version. Several MUI specific files will be overwritten!"
)
)

(copyfiles (source "DU_1:unlha") (dest "RAM:"))
(askdisk
        (prompt "Please insert the disk labelled \"The Digital Universe Disk 14\"")
        (help @askdisk-help)
        (dest "DU_14")
)
(working "Extracting MUI files...")
(run "RAM:unlha xf DU_14:mui23.lha")
(delete "RAM:unlha")

;***** Startup-Sequence
(complete 95)

(startup "MUI"
    (prompt "Some required commands will be added to your \"s:user-startup\" file.")
    (help @startup-help)
    (command "if exists \"" destination "\"\n")
    (command "   assign MUI: \"" destination "\"\n")
    (command "   if exists MUI:Libs\n")
    (command "      assign add LIBS: MUI:Libs\n")
    (command "   endif\n")
    (command "   if exists MUI:Locale\n")
    (command "      assign add LOCALE: MUI:Locale\n")
    (command "   endif\n")
    (command "   version >nil: exec.library 39\n")
    (command "   if not warn\n")
    (command "      if exists MUI:Docs\n")
    (command "         if exists HELP:dummy ; do not remove\n")
    (command "         endif                ; this entry!\n")
    (command "         assign add HELP: MUI:Docs\n")
    (command "      endif\n")
    (command "   endif\n")
    (command "endif")
)


;***** Finished
(complete 100)

(exit "Please reboot your computer before trying to start any MUI programs.")